home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / mailii.arc / ML2MULTI.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.8 KB  |  89 lines
  1. * LABLMEMB.CMD
  2. * PRINTS 2 LABELS FROM EXTERNAL RECORD NUMBER FILE
  3. * WIL WAKELY, 6/82
  4. ERASE
  5. ?'              PRINT 2 LABELS FOR MEMBERSHIP CARDS'
  6. ?
  7. ?'    USE 15/16 X 3.5 LABELS'
  8. ?'    ESCAPE TO EXIT AT ANY TIME'
  9. SET TALK OFF
  10. * SET-UP LABELS
  11. ?
  12. STORE 'Y' TO ANSWER
  13. DO WHILE !(ANSWER)='Y'
  14.   ?'PRINT SET-UP LABEL? (Y/N)'
  15.   WAIT TO ANSWER
  16.     IF !(ANSWER)='Y'
  17.         SET PRINT ON
  18.         ?'LINE1 AAAAA'
  19.         ?'LINE2 BBBBB'
  20.         ?'LINE3 CCCCC'
  21.         ?'LINE4 DDDDD'
  22.         ?'LINE5 EEEEE'
  23.         ?
  24.         SET PRINT OFF
  25.     ENDIF
  26. ENDDO
  27. * DETERMINE MODE
  28. ERASE
  29. ?
  30. ?
  31. ?
  32. ?'                      RECORD SELECTION'
  33. ?
  34. ?
  35. ?'              1 - GET RECORD NUMBER FROM KEYBOARD'
  36. ?
  37. ?'              2 - USE EXTERNAL FILE (INDX.DBF)'
  38. ?
  39. ?'              3 - PRINT ENTIRE DATA FILE'
  40. ?
  41. ?
  42. INPUT 'ENTER SELECTION' TO MODE
  43. ?
  44. ?'             PRINT HOW MANY LABELS FOR EACH RECORD?'
  45. ?
  46. INPUT TO COUNT1
  47. ERASE
  48. DO CASE
  49. CASE MODE=1
  50.         DO WHILE T
  51.              INPUT "RECORD NUMBER (ESC TO EXIT)" TO RECNO    
  52.               SET PRINT ON
  53.               GOTO RECNO
  54.               DO ML2LAB4
  55.         SET PRINT OFF
  56.         ENDDO
  57. CASE MODE=2
  58.      * PRINTS LABELS FROM FILE INDX.DBF
  59.      * WITH ONE FIELD: REC:NO, NUMERIC, 4
  60.      USE &BASE
  61.      SELECT SECONDARY
  62.      USE INDX
  63.      GOTO TOP
  64.      SET PRINT ON
  65.      DO WHILE .NOT. EOF
  66.           STORE REC:NO TO MREC:NO
  67.           SELECT PRIMARY
  68.           GOTO MREC:NO
  69.             DO ML2LAB4
  70.         SELECT SECONDARY
  71.             SKIP
  72.       ENDDO
  73.     SELECT PRIMARY
  74. CASE MODE=3
  75.         USE &BASE
  76.         GO TOP
  77.         SET PRINT ON
  78.         DO WHILE .NOT. EOF
  79.                 DO ML2LAB4
  80.                 SKIP
  81.         ENDDO
  82.   OTHERWISE
  83.         DO ML2
  84. ENDCASE
  85. SET PRINT OFF
  86. SET TALK ON
  87. RELEASE ALL
  88. RETURN
  89.